home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / GLYPHV11.ZIP / SOURCES / INFO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-02  |  1.6 KB  |  67 lines
  1. unit Info;
  2.  
  3. (*******************************************************************)
  4. (* Glyph Viewer - version 1.1 - 01/11/1995                            *)
  5. (*        by Stephane BONNELL                                        *)
  6. (*                                                                   *)
  7. (*    This program is distributed as freeware.                       *)
  8. (*  But if you like it, please send me an email or a postcard.     *)
  9. (*        EMail: sbonnell@teaser.fr                                   *)
  10. (*      SMail: 24 bvd Arago, 75013 Paris, France                   *)
  11. (*******************************************************************)
  12. (*    Info window                                                       *)
  13. (*******************************************************************)
  14.  
  15. interface
  16.  
  17. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  18.   Buttons, ExtCtrls, Tabs;
  19.  
  20. type
  21.   TInfoBox = class(TForm)
  22.     OKButton: TBitBtn;
  23.     Bevel: TBevel;
  24.     Notebook: TNotebook;
  25.     TabSet: TTabSet;
  26.     Address: TLabel;
  27.     email: TLabel;
  28.     Comments: TLabel;
  29.     Copyright: TLabel;
  30.     Version: TLabel;
  31.     ProductName: TLabel;
  32.     ProgramIcon: TImage;
  33.     Double: TLabel;
  34.     Right: TLabel;
  35.     HelpIcon: TImage;
  36.     Title: TLabel;
  37.     procedure TabSetChange(Sender: TObject; NewTab: Integer;
  38.       var AllowChange: Boolean);
  39.     procedure FormShow(Sender: TObject);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  45.  
  46. var
  47.   InfoBox: TInfoBox;
  48.  
  49. implementation
  50.  
  51. {$R *.DFM}
  52.  
  53. procedure TInfoBox.TabSetChange(Sender: TObject; NewTab: Integer;
  54.   var AllowChange: Boolean);
  55. begin
  56.        NoteBook.PageIndex:=NewTab;
  57. end;
  58.  
  59. procedure TInfoBox.FormShow(Sender: TObject);
  60. begin
  61.     NoteBook.PageIndex:=0;
  62.     TabSet.TabIndex:=0;
  63. end;
  64.  
  65. end.
  66.  
  67.